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APPENDIX 

This Appendix contains code listings enabling some of the features of access 
server 34 exposing the data and functionality of a Microsoft® Exchange server. 
Global.ASA 

VWA server 152 includes a global. asa file with subroutines used to control when 
an application starts, when a session begins, when a session ends, when a page is loaded, 
when a page is discarded, and when an application ends. In one embodiment, the 
global.asa file is written in Visual Basic® and has the following form: 

<SCRIPT LANGUAGE="VBScript" RUN AT=" Server "> 
Sub application_onstart 
End sub 

Sub application_onend 
End sub 

Sub session_OnStart 

! If Request.ServerVariables("LOGON_USER") = Then 
' Response.Status = "401 access denied" 
'End If 
End Sub 

Sub Session_OnEnd 
f on error resume next 
Dim myExchangeObj 
Dim MyMask 

if Not IsEmpty(session) Then 

MyMask=session.SessionID & "_*.*" 
set myExchangeObj = CreateObject( n VIEWcdol.WAPproc") 
myExchangeObj .DeleteFiles(MyMask) 
Set myExchangeObj=Nothing 
End If 

End Sub 
</SCRIPT> 

Default.ASP 

The default session features are handled by the following ASP script. 

<% 
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Profile=Trim(Request.QueryString("Profile")) 

Password=Trim(Request.QueryString("Password")) 

XServer=Trim(Request.QueryString("XServer'')) 

Mailbox=Trim(Request.QueryString("Mailbox")) 

webS^^rim!^^^^^!!-^'^")) 

if webSID="" then 

webSID=session.SessionID 

end if 

'Response. Write Profile & " " & XServer & " " & Mailbox 
dim XSession 
dim Exch 

Set ExchObj=CreateObject("VffiWcdol .WAPproc") 
if profile = "" then 
profile=ExchObj .Profile 
end if 

if profile o "" then 
if XServer o and Mailbox o"" then 

XSession=ExchObj.SaveProfile(Profile,XServer,Mailbox,webSID) 
end if 

if XServer o and Mailbox ="" then 
XSession=ExchObj.SaveProfile(Profile,XServer„webSID) 
end if 

if XServer = "" and Mailbox o"" then 
XSession=ExchObj.SaveProfile(Profile„Mailbox,webSID) 
end if 

XSession= ExchObj .CreateSession (Profile,Password,webSID,"Exchange") 
Set ExchObj =Nothing 
Response.Redirect (XSession) 
End if 

Set ExchObj=Nothing 

XSession="logon.asp?Profile=" & Profile & "&Password=" & Password 

Response.Redirect (XSession) 

%> 



Loeon.ASP 

The logon features are handled by the following ASP script. 

<%Response.ContentType="text/vnd.wap.wmr , %x?xml version=" 1 .0"?> 

<!DOCTYPE wml PUBLIC "-//W APFORUM//DTD WML 1.1//EN" 

"http ://www.wapforum.org/DTD/wml_l . 1 .xml"> 

<wml> 

<template> 

<do type="prev"> 
<prev/> 

</do> 

</template> 
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<card id="cardl" title="VffiW Logon"> 
<p> 

Profile:<input value="<%=Request.QueryString("Profile")%>" name="Profile" 

title="Profile:7> 

</p> 

<p> 

Password:<input type="password" value="<%=Request.QueryString("Password")%>" 

name="Password" title="Password:"/> 

</p> 

<p> 

<a liref^'Default. asp?Profile=$(Profile)&#3 8 ;Password=$(Password)">Logon</a> 

</p> 

</card> 

</wml> 

The user profile features are handled by the following ASP scripts. 
CDOLoadProfile.ASP 

<% 

Dim myResult 

'Create the Collaboration data object 

set myExchangeObj = CreateObject("VffiWcdol.WAPproc") 

Profile = Request.QueryString("Profile") 

webSID=Trim(Request.QueryString("SID ,, )) 

if webSID=" M then 

webSID=session.SessionID 

end if 

myResult = myExchangeObj .LoadProfile(Profile,webSID) 

set myExchangeObj=nothing 

'Response.write (myResult) 

'Response.wri te (strSubject) 

'Response.write (strBody) 

'Response.write (toRec) 

'Response.write (profile) 

Response.Redirect (myResult) 

%> 

CDOSaveProfile.ASP 

<% 

Dim myResult 

'Create the Collaboration data object 

set myExchangeObj = CreateObject("VIEWcdol.WAPproc") 
Profile = Request.QueryString("Profile") 
Server = Request.QueryString("Server") 
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Mailbox = Request.QueryString("Mailbox") 
webSro=Trim(Request.QueryString( ,f SED M )) 
if webSID-"" then 
webSID=session.SessionID 
end if 

myResult = myExchangeObj.SaveProfileCProfilejServe^MailboXjWebSID) 

set myExchangeObj =no thing 

'Response.write (myResult) 

'Response. write (strSubject) 

'Response.write (strBody) 

'Response.write (toRec) 

'Response.write (profile) 

Response.Redirect (myResult) 

%> 



USER ACTIONS 

User actions are handled by the following ASP scripts. 
CDOListActions.ASP 

<% 

Dim myResult 

'Create the Collaboration data object 

set myExchangeObj = CreateObject("VIEWcdoLWAPproc") 

Profile = Request.QueryString("Profile") 

XServer = Request. QueryStringC'XServer") 

Password = Request.QueryString("Password") 

Mailbox = Request.QueryString("Mailbox n ) 

FolderID=Request.QueryString("Folder ,, ) 

webSID=Trim(Request.QueryString("SID ! ')) 

if webSID-"" then 

webSE)=session. SessionID 

end if 

ro=Request.QueryString("ID") 
ItemClass=Request.QueryString("Class") 

myResult = myExchangeObj. ListActions(webSID,ID,FolderID,ItemClass) 
set myExchangeObj =no thing 
Response.Redirect (myResult) 

%> 

NewAction.ASP 

<%Response.ContentType="text/vnd.wap.wml M %><?xml version-" 1 .0"?> 
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" 
"http://www.wapforum.org/DTD/wml_l . 1 .xml t! > 
<wml> 
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<template> 
<do type="prev"> 
<prev/> 
</do> 
</templatex% 
Titell="" 
Titel2="" 
ParamX="" 

Action=UCAse(Request.QueryString("Action")) 
Param 1 =Request.QueryString("Param 1 ") 
Param2=Request.QueryString("Param2") 

SID=Request.QueryString("SID") 

FolderID=Request.QueryString("Folder") 

ID=Request.QueryString("ID") 

'I will assume CDO session has already been created 

'Profile-ueryStringC'Profile") 

Trofile=ueryString("Password") 

'Server=Request.QueiyString("XServer") 

'Mailb6x=Request.QueryString("Mailbox") 

Select case Action 

case "FOR" 

Titell="To" 

Titel2="Msg" 

case "REP" 

if Ucase(Paraml)="TRUE" then 

ParamX="A" 

Titell="All" 

end if 

Titel2="Msg" 
case "FAX" 
Titell="No" 
Titel2="Msg" 
case "DEL" 
Case "CAT" 
Titell="Cat" 
Titel2="" 
case "FLA" 
Titell="Flage" 
Titel2="Reminder" 
case "INF" 
case "ACC" 
case "DEC" 
case "TEN" 
case "MAR" 
case "MOV" 
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Titell="Folder" 
Titel2="" 
case else 
Titell^'Taraml" 
Titel2="Param2" 
end select 

Action=Action & ParamX 

%xcard id="VffiW<%=Action%>" title=" Action: <%=Action%>"> 

<% if Titello "" then%> 
<p> 

<%=Titell%>:<input value="<%=Paraml%>" name="<%=Action & "1" & 
ID%>" title="<%=Titell %>:"/> 
</p> 
<%end if 

ifTitel2o then%> 
<P> 

<%=Titel2%>:<input value="<%=Param2%>" name="<%=Action & "2" & 
ro%>" title="<%=Titel2%>:7> 
</p> 
<%end if%> 
<do type="sendmsg" label="Send"> 

<go href="CDOAction.asp?Action=<%=Action%>&Paraml=$(<%=Action & "1" 
& ID%>)&Param2=$(<%=Action & "2" & 

ID%>)&SID=<%=SID%>&Folder=<%=FolderID%>&ID=<%=ID%>7> 
</do> 

</card> 
</wml> 

CDOActionASP 

<% 

Dim myResult 

myResult="CDOActionErr.wmr i 
'Create the Collaboration data object 
'on error resume next 

set myExchangeObj = CreateObjectC'VIEWcdol.WAPproc") 

Profile = Request.QueryString("Profile") 

Password = Request.QueryString("Password") 

XServer = Request.QueryString("XServer") 

Mailbox = Request.QueryString("Mailbox") 

FolderID=Request.QueryString("Folder") 

ItemID=Request.QueryString("rD") 

webSID=Trim(Request.QueryString("SID")) 

if webSID="" then 

webSID=session.SessionID 
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end if 

Action=UCase(Request.QueryString( n Action")) 

Paraml=Request.QueryString("Paramr) 

Param2=Request.QueryString("Param2") 

select case Action 
case "DEL" 

Taraml is confirmation to prompt or not 
'myResult = 

myExchangeObj.DleteItem(profileJ ) assword,Xse^^ 
,ToRec,msgID,Param 1 ) 
case "MAR" 

Taraml is to Mark Read or UnRead 
! myResult = 

myExchangeObjMarldlead(profile,Password,Xsera 

y,ToRec,msgID,Paraml) 

case "REP" 

Taraml is ReplyAll true or false 
Taram2 is the Reply text 

if ucase(trim(Paraml))="TRUE" then Paraml=true else Paraml=false 

myResult = myExchangeObj .Reply(„„webSID ? FolderID,ItemID,Paraml ? param2) 

'or 

'myResult = 

myExchangeObj.Replyfcrofile^asswor^Xserver,^ 

aml,param2) 

case "REPA" 

Taraml is ReplyAll= true 

Taram2 is the Reply text 

Paraml=true 

myResult = myExchangeObj .Reply(,„ s webSID,FolderID,ItemID,Paraml,param2) 
case "FAX" 

Taraml is Recipient Fax Number 
Taram2 are Cover text 

myResult = myExchangeObj .Fax(„„webSID ? FolderID 5 ItemID 5 paraml 5 param2) 
'or 

f FaxServer="rightfax@cup.hp.com" 

TaxTo-'Mamoun" 

'myResult = 

myExchangeObj.Fax(profile,Password,Xserver^ 
1 ,param2,FaxTo 5 FaxServer) 
Case "FOR" 

Taraml is Recipient Name 
Taram2 are Body text 

myResult = myExchangeObj .Forward(„„webSID 5 FolderID 5 ItemID 5 paraml 5 param2) 
'or 
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'myResult = 

myExchangeObj.Fomard(profile,Password,Xserver,Mailbox,webSID,FolderID,ItemID,p 

araml,param2) 

Case "CAT" 

'Paraml is is Category 

'myResult = myExchangeObj.CategorizeO 

Case "FLA" 

'Paraml Falge For follow-up Text 
'Param2 Reminder Date 
'myResult = myExchangeObj.Fax() 
Case else 

myResult="CDOActionErr.wml" 
end select 

set myExchangeObj=no thing 
Response.Redirect (myResult) 

%> 

MESSAGING FUNCTIONALITY 

New messages are handled by the following ASP scripts. 
NewMsg.ASP 

<%Response.ContentType="text/vnd.wap.wml"%><?xml version=" 1 .0"?> 

<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" 

"http://www.wapforum.org/DTD/wml_l . 1 .xml"> 

<wml> 

<template> 

<do type="prev"> 
<prev/> 

</do> 

</templatex%myTo=Request.QueryString("To") 
if myTo="" then myTo="First_Last@am.exch.hp.com" 
mySub=Request.QueryString("Subject'') 
myBody=Request.QueryString("Body") 
myFiles=Request.QueryString("Files") 

if myFiles-"" then myFiles="\\15.126.16.163\d\test.doc"%><card id="NewMsg" 
title="Send Message"> 
<p> 

To:<input value="<%=myTo%>" name="msgTo" title="To:"/> 
</p> 
<p> 

Sub:<input value="<%=mySub%>" name="msgSubject" title="Sub:"/> 
</p> 
<p> 

Body:<input value="<%=myBody%>" name="msgBody" title="Body:"/> 
</p> 
<p> 
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Files:<input value="<%=myFiles%>" name="msgFiles" title="Files:7> 
</p> 

<do type="SendMsg" label="Send"> 
<go 

href="CDOSendMsg.asp?SID=<%=Request.QueryString("SID ,, )%>&To=$(msgTo) 

&Subject=$(msgSubject)&Body=$(msgBody)&Files=$(msgFiles)7> 

</do> 

</card> 

</wml> 

CDOSendMse.ASP 

<% 

Dim myResult 

'Create the Collaboration data object 

set myExchangeObj = CreateObject("VIEWcdol.WAPproc") 

Profile = Request.QueryString("Profile") 

Password = Request.QueryString("Password") 

XServer = Request.QueryString("XServer") 

Mailbox = Request.QueryString("Mailbox") 

webSED=Trim(Request.QueryString("SID")) 

if webSID="" then 

webSID=session.SessionID 

end if 

ToRec=Request.QueryString(*To") 
strSubject=Request.QueryString("Subject") 
strBody=Request.QueryString("Body") 
Files=Request.QueryString("Files") 
myResult = 

myExchangeObj.SendMessage(Profile,Password,Xserver,Mailbox,webSID,toRec,strSubj 

ect,strBody,Files) 

set myExchangeObj =nothing 

Response.Redirect (myResult) 

%> 

NewReoMse.ASP 

<%Response.ContentType="text/vnd.wap.wml"%x?xml version=" 1 .0"?> 
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" 
"http://www.wapforum.org/DTD/wml_l . 1 .xml"> 
<%msgID=Request.QueryString("ID") 
Folder=Request.QueryString("Folder") 
All=Request.QueryString("All") 
%xwml> 
<template> 
<do type="prev"> 
<prev/> 
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</do> 

</template> 
<card id="NewReply" title="Reply"> 

<P> 

All:<input value="<%=All%>" name="msgAll" title="All: ,, /> 
</p> 
<p> 

Body:<input value="<%=Request.QueryString("Body")%>" 
name="msgBody" title="Body:7> 
</p> 

<do type="sendmsg" label="Send"> 
<go 

href^"CDOReply.asp?SID=?<%=Request.QueryString("SID")%>&All=$(msgAll)& 

#38;ID-<%=msgID%>&Folder=<%=Folder%>&Body=$(msgBody) ,, /> 

</do> 

</card> 
</wml> 

CDOReplv.ASP 

<% 

Dim myResult 

'Create the Collaboration data object 

set myExchangeObj = CreateObjectC'VIEWcdol.WAPproc") 

Profile = Request.QueryString("Profile") 

Password = Request.QueryString("Password") 

XServer = Request.QueryString("XServer") 

Mailbox = Request.QueryString("Mailbox") 

FolderED=Request.QueryString("Folder") 

ItemID=Request.QueryString("ID") 

webSID=Trim(Request.QueryString("SID")) 

if webSID-"" then 

webSID=session.SessionID 

end if 

All=trim(Request.QueryString("All")) 

if(AH="")then 

ReplyAll=false 

else 

replyall=true 
End if 

StrReplyText=Request.QueryString("Body") 
myResult = 

myExchangeObj.Reply(profile,Password,Xserver,Mailbox,webSID,FolderID,strReplyTe 

xt,ReplyAll,msgED) 

set myExchangeObj =nothing 

Response.Redirect (myResult) 

%> 
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NewFwdMsg.ASP 

<%Response.ContentType="text/vnd.wap.wml"%x?xml version=" 1 .0"?> 
<!DOCTYPE wml PUBLIC "-//W APFORUM//DTD WML 1.1//EN" 
"http://www.wapforum.org/DTD/wml_l . 1 .xml"> 
<% 

msgID=Request.QueryString("ID") 
Folder=Request.QueryString("Folder") 

%> 

<wml> 
<template> 
<do type="prev"> 
<prev/> 
</do> 
</template> 
<card id="NewFwd" title="Forward"> 
<p> 

To:<input value="<%=Request.QueryString("To")%>" name="msgTo" 
title="To:7> 
</p> 
<p> 

Body:<input value="<%=Request.QueryString("Body")%>" 
name="msgBody" title="Body:7> 
</p> 

<do type="sendmsg" label="Send"> 
<go 

href="CDOFwd.asp?SID=?<%=Request.QueryString("SID ,, )%>&To-$(msgTo)&#3 

8;E>=<%=msgrD%>&Folder=<%=Folder%>&Body=$(msgBody)'7> 

<do> 

</card> 
</wml> 

CDOFwd.ASP 

<% 

Dim myResult 

'Create the Collaboration data object 

set myExchangeObj = CreateObject("VffiWcdol.WAPproc") 

Profile = Request. QueryString("Profile") 

Password = Request.QueryString("Password") 

XServer = Request.QueryString("XServer") 

Mailbox = Request.QueryString("Mailbox") 

FolderID=Request.QueryString("Folder") 

ItemID=Request.QueryString( ,, ID ,, ) 

webSID=Trim(Request.QueryString("SID")) 

if webSrD="" then 
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webSID=session.SessionID 
end if 

ToRec=Request.QueryString("To") 
StrBodyText=Request.QueryString("Body") 
myResult = 

myExchangeObj.Forward(profile,Password,Xserver,Mailbox,webSID,FolderID,strBody, 

ToRec,msgID) 

set myExchangeObj=nothing 

Response.Redirect (myResult) 

%> 

CONTACTS FUNCTIONALITY 

Contacts functionality is handled by the following ASP script. 
NewCon.ASP 

<%Response.ContentType="text/vnd.wap.wml"%x?xml version=" 1 .0"?> 

<!DOCTYPE wml PUBLIC "-//W APFORUM//DTD WML 1.1//EN" 

"http://www.wapforum.org/DTD/wml_l . 1 .xml"> 

<wml> 

<template> 

<do type="prev"> 
<prev/> 

</do> 

</template> 

<card id="NewContact" title="New Contact"> 
<p> 

Name:<input value- "' name="msgName" title="Name:"/> 
</p> 
<p> 

Phone:<input value="" name- 'msgPhone" title="Phone:"/> 
</p> 
<p> 

Mail:<input value="@" name="msgMail" title="Mail:"/> 
</p> 
<p> 

Body:<input value-"" name-'msgBody" title="Body:"/> 
</p> 

<do type="sendmsg" label="Send"> 
<go 

href="CDOSendMsg.asp?SID=?<%=Request.QueryString("SID")%>&Name=$(msg 

Name)M38;Phone=$(msgPhone)«&Mail=$(MsgMail)&Body=$(MsgBody)"/> 

</do> 

</card> 
</wml> 
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TASKS FUNCTIONALITY 

Tasks functionality is handled by the following ASP scripts. 
NewTsk.ASP 

<%Response.ContentType="text/vnd. wap.wmr'%x?xml version-" 1 .0"?> 
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" 
"http://www.wapforum.org/DTD/wml_l . 1 .xml"> 
<wml> 
<template> 
<do type="prev"> 
<prev/> 
</do> 
</template> 
<card id="NewTask" title="Task"> 
<p> 

Sub:<input value-"" name="msgSubject" title="Sub:7> 
</p> 
<p> 

Body:<input value-"" name="msgBody" title="Body:"/> 
</p> 

<do type="sendmsg" label="Send"> 
<go 

href-"CDOSendMsg.asp?SID=?<%=Request.QueryString("SID")%>&To=$(msgTo 

)&Subject=$(msgSubject)&Body=$(msgBody)*7> 

</do> 

</card> 
</wml> 

NewTskRea.ASP 

<%Response.ContentType= ,, text/vnd.wap.wml"%><?xml version-" 1 .0"?> 

<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1 //EN" 

"http://www.wapforum.org/DTD/wml_l . 1 .xml"> 

<wml> 

<template> 

<do type="prev"> 
<prev/> 

</do> 

</template> 

<card id="NewTskReq" title="Task Request"> 
<p> 

To:<input value-"mamoun_abu-samaha@hp.com" name="msgTo" 
title="To:"/> 
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<p> 

Sub:<input value="" name="msgSubject" title="Sub:7> 
</p> 
<p> 

Body:<input value="" name="msgBody" title="Body:7> 
</p> 

<do type="sendmsg" label="Send"> 
<go 

href^"CDOSendMsg.asp?SID=?<%=Request.QueryString( ,, SID")%>«&To=$(msgTo 

)&Subject=$(MsgSubject)&Body=$(MsgBody)'7> 

</do> 

</card> 
</wml> 

CALENDAR FUNCTIONALITY 

Calendar functionality is handled by the following ASP scripts. 
NewApp.ASP 

<%Response.ContentType="text/vnd.wap.wmr'%><?xml version=" 1 .0"?> 
<!DOCTYPE wml PUBLIC "-//W APFORUM//DTD WML 1.1//EN" 
"http://www.wapfonim.org/DTD/wml_l . 1 .xml"> 
<wml> 
<template> 
<do type="prev"> 
<prev/> 
</do> 
</template> 

<card id="Appointment" title="Appointment"> 
<p> 

Sub:<input value= m * name="msgSubject" title="Sub:7> 
</p> 
<p> 

Start time:<input value="<%-now()%>" name="msgStart" title="Start 

time:'7> 

</p> 
<p> 

End Time:<input value="<%=now()+l%>" name="msgEnd" title="End 

time:"/> 

</p> 
<p> 

Location:<input value="" name="msgLocation" title="Location:"/> 
</p> 

<do type="sendmsg" label="Send"> 
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<go 

href^"CDOSendMsg.asp?SID=?< 0 /o=Request.QueryString( ,, SID") 0 /o>&Subject=$(m 
sgSubj ect)&#3 8;Start=$(msgStart)&#3 8 ;End=$(MsgEnd)&#38 ;Location=$(MsgLocatio 
n)7> 
</do> 

</card> 
</wml> 



NewAppReat.ASP 

<%Response.ContentType="text/vnd. wap.wmr'%x?xml version=" 1 .0"?> 
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" 
"http://www.wapforum.org/DTD/wml_l . 1 .xml"> 
<wml> 
<template> 
<do type="prev"> 
<prev/> 
</do> 
</template> 

<card id="NewAppReq" title-'Meeting Request"> 
<P> 

To:<input value="<%=Request.QueryString("To")%>" name="msgTo" 
title="To:"/> 
</p> 
<p> 

Body:<input value="<%=Request.QueryString("Body")%>" 
name="msgBody" title="Body:"/> 
</p> 
<p> 

Start time:<input value="<%=now()%>" name="msgStart" title="Start 

time:7> 

</p> 
<p> 

End Time:<input value="<%=now()+l%>" name="msgEnd ,, title="End 

time:"/> 

</p> 
<P> 

Location:<input value="<%=Request.QueryString("Location")%>" 
name="msgLocation" title="Location:7> 

</p> 

<do type="sendmsg" label- *Send"> 
<go 

href^TDOSendMsg.asp?SE)=?<%=Request.QueryString("SID ,, )%>«&To=$(msgTo 
)M38;Body=$(MsgBody)&Start=$(msgStart)M38;End=$(MsgEnd)&Location 
=$(MsgLocation)7> 
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</do> 

</card> 
</wml> 

FAX FUNCTIONALITY 

New faxes are handled by the following ASP scripts. 
NewFax.ASP 

<%Response.ContentType="text/vnd.wap.wmr'%x?xml version=" 1 .0"?> 

<!DOCTYPE wml PUBLIC " -//W APFORUM//DTD WML 1.1 //EN" 

"http://www.wapforum.org/DTD/wml_l . 1 .xml"> 

<wml> 

<template> 

<do type- 'prev"> 
<prev/> 

</do> 

</templatex%myFax=Request.QueryString("Fax") 
if myFax="" then myFax="70460" 
myName=Request. QueryString("Name") 
myCover=Request.QueryString("Cover") 
myFiles=Request.QueryString("Files") 

if myFiles-"" then myFiles="\\eVIEW\d\hello.doc"%xcard id="NewMsg" title="Send 
Message"> 
<p> 

Fax:<input value="<%=myFax%>" name="msgFax" title="Fax:"/> 
</p> 
<p> 

Name:<input value="<%=myName%>" name="msgName" title="Name:"/> 
</p> 
<p> 

Cover:<input value="<%=myCover%>" name="msgCover" title="Cover:"/> 
</p> 
<p> 

Files:<input value="<%=myFiles%>" name="msgFiles" title="Files:7> 
</p> 

<do type="SendFax" label="SendFax"> 
<go 

href="CDOSendFax.asp?SID=<%=Request.QueryString("SID")%>&Fax=$(msgFax 

)&Name-$(msgName)&Cover=$(msgCover)&Files=$(msgFiles)"/> 

</do> 

</card> 

</wml> 



CDOSendFax.ASP 
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<% 

Dim myResult 

'Create the Collaboration data object 

set myExchangeObj = CreateObject( M VIEWcdol.WAPproc ,, ) 

Profile = Request.QueryString("Profile M ) 

Password = Request.QueryString("Password") 

XServer = Request. QueryString("XServer") 

Mailbox = Request.QueryStringC'Mailbox") 

webSro=Trim(Request.QueryString( ,, SID ,, )) 

if webSrD= Mn then 

webSID=session.SessionID 

end if 

Fax=Request.QueryString("Fax") 
Name=Request.QueryString( M Name") 
Cover=Request.QueryString("Cover") 
Files=Request.QueryString( fl Files M ) 
myResult = 

myExchangeObj. SendFaxCProfile^asswordjXServe^Mailbox^ebSlD^aXjName^over, 

Files/Test Fax") 

set myExchangeObj =no thing 

Response.Redirect (myResult) 

%> 
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